home *** CD-ROM | disk | FTP | other *** search
/ Chip 1996 November / Chip 11-96.iso / treiber / grafik / pine / 550m / win3x / algul02.inf < prev    next >
Text File  |  1995-08-03  |  11KB  |  366 lines
  1. DefineVariables
  2. Text [CompanyName] := AVANCE LOGIC, INC.
  3. Text [ProductName] := Avance Logic,Inc. ALG 2302/1301
  4. Logical [OfferInstallationDirectoryChoice] := Y
  5. Directory [DefaultInstallationDirectory] := \WIN\SYSTEM
  6. Directory [TempDirectory]
  7. Text [Bitmap1] := ali.bmp
  8. Text [TempDriveLetter]
  9. Text [ModifyMode] := MODIFY
  10. Number [MinimumFilesSetting] := 20
  11. Number [MinimumBuffersSetting] := 20
  12. Directory [ReadmeFileName]
  13. Logical [InquireAboutSystemFileLocation] := Y
  14. Logical [AskBeforeFileReplacement] := N
  15. Text [ExitMessage] := Thank again!
  16. Directory [ProgramToRun]
  17. Logical [AddInstallDirectoryToPath] := N
  18. Text [MinimumOSVersion]
  19. Number [MinimumSystemMemoryRequiredPresent]
  20. Number [SpaceWeNeedToInstall] := 700000
  21. Logical [AllowCGA] := N
  22. Logical [AllowMDA] := N
  23. Logical [Allow808x] := N
  24. Logical [Allow80286] := Y
  25. Logical [MathCoprocessorRecommended] := N
  26. Logical [FixedDiskRequired] := Y
  27. Text [NetWorkInstallation] := DisallowNetwork
  28. Logical [UseShadows] := Y
  29. Text [MainBorder] := None
  30. Text [PopupBorder] := Single
  31. Text [TopLine] := Installing Avance Logic 2302/1301 Resolutions
  32. Text [TopLineColors] := WhiteOnBrown
  33. Text [BottomLineColors] := WhiteOnLightGray
  34. Text [PopupColors] := WhiteOnCyan
  35. Text [AttentionColors] := WhiteOnRed
  36. Text [SpecialPopupColors] := WhiteOnBrown
  37. Text [Module1Name] := Windows 3.0
  38. Text [Module1Groups] := 1
  39. Text [Module1Description] := Windows 3.0 Drivers
  40. Text [Module2Name] := Windows 3.1
  41. Text [Module2Groups] := 2
  42. Text [Module2Description] := Windows 3.1 Drivers
  43. Text [ExpressSetupDescription]
  44. Text [CustomSetupDescription] := Please Sellect Which Which Windows Version
  45. Text [ExtractionOptions]
  46. ;; remaining variables are not initialized from external Script Data File
  47. Logical [NeedToTerminate] := N
  48. Logical [Installed] := N
  49. Text [DisplayAdapterSummary]
  50. Text [CPUTypeSummary]
  51. Text [NetworkActive]
  52. Text [MathCoprocessorStatus]
  53. Text [InstallationDriveSummary]
  54. Text [OSVersionSummary]
  55. Text [SystemMemorySummary]
  56. Logical [InsufficientSystem] := N
  57. Logical [CompatibilityNoticeGiven] := N
  58. Logical [NeedToModify] := N
  59. Text [PathTask]
  60. Text [BuffersTask]
  61. Text [FilesTask]
  62. Text [BackgroundCharacter] := B0
  63. Text [ScreenColors] := WhiteOnBlue
  64. Text [BottomLine]
  65. Number [Black]
  66. Number [White]
  67. Number [TempDirSpaceRequired] := 300000
  68. EndDefineVariables
  69. ;; Set up basic screen appearance since there will be a brief delay
  70. ;; before the external data is ready to use
  71. ;;SetScreenAttrTo Default
  72. ;;SetBackgroundCharTo [BackgroundCharacter]
  73. ;;ClearScreen
  74. ;;[TempDirectory] := [TempDriveLetter]:
  75.  
  76. Procedure Logo
  77. LoadBitMap 1 [InstallationDirectory]\[Bitmap1] @xy(Center,2)
  78. ShowBitMap 1
  79. EndProcedure
  80.  
  81. Do InstallSupportFiles
  82.  
  83. Procedure InstallSupportFiles
  84.        If DriveIsRemoveable [InstallFromDrive]
  85.          [InstallationDirectory] := [InstallFromDrive]:
  86.          SetMouseCursor Wait
  87.          Do Logo
  88.          Do Install
  89.          SetMouseCursor Arrow
  90.          Do InstallProgramGroup
  91.        Else
  92.            [InstallationDirectory] := [InstallFromDirectory]
  93.            If [InstallFromDirectory] Contains \ALGUL02\
  94.              If FileExists [InstallFromDirectory]\al8p02.drv
  95.                 Dialog @xy(Center,Center) WhiteOnBlack
  96.                   Please copy windows drivers into another
  97.                   directory except [InstallFromDirectory]
  98.                 EndDialog
  99.                 SoLong Quietly
  100.              Else
  101.                Do Logo
  102.              EndIf
  103.            Else
  104.              SetMouseCursor Wait
  105.              Do Logo
  106.              Do Install
  107.              SetMouseCursor Wait
  108.              Do InstallProgramGroup
  109.            EndIf
  110.  
  111.         EndIf
  112. EndProcedure
  113.  
  114. Procedure InstallProgramGroup
  115.     Dialog [YesOrNo1] @xy(Center,Center) WhiteOnBlack UseHeader "INSTALL for Windows Program Manager Group"
  116.       Would you like to place INSTALL in a Windows program group?
  117.    EndDialog
  118.    If [YesOrNo1] = Y
  119.       BuildProgramGroup "Avance Logic 2302/1301-Resolutions" ALGUL02.GRP
  120.         [TempDirectory]\VMASTER.EXE "AvanceLogic,Inc 2302/1301"
  121.         [TempDirectory]\VPM.EXE
  122.         [TempDirectory]\ALPLAYER.EXE
  123.       EndBuildProgramGroup
  124.    EndIf
  125. EndProcedure
  126.  
  127.  
  128. Procedure Install
  129. [String1] := C
  130. [TempDriveLetter] := BlankString
  131. [Number1] := [TempDirSpaceRequired]
  132.  :CheckNextDrive
  133.  If [String1] > B
  134.   If DriveIsPresent [String1]
  135.    If DriveIsRemoveable [String1]
  136.     ;;do nothing
  137.    Else
  138.     If FreeSpaceOnDrive [String1] > [Number1]
  139.      [TempDriveLetter] := [String1]
  140.      [Number1] := FreeSpaceOnDrive [String1]
  141.  
  142.     Else
  143.        :NextDrive
  144.          IncrementString [String1]
  145.          If DriveIsCDROM [String1]
  146.            GoTo NextDrive
  147.          EndIf
  148.          If DriveIsRemote [String1]
  149.            GoTo NextDrive
  150.          EndIf
  151.       GoTo CheckNextDrive
  152.  
  153.     EndIf
  154.    EndIf
  155.   EndIf
  156.  EndIf
  157.  If [String1] = Z
  158.   GoTo ExitGetTempDir
  159.  EndIf
  160.  :ExitGetTempDir
  161. ;; ClearScreen
  162. ;; UpdateWindow
  163.  If [TempDriveLetter] = BlankString
  164.    Dialog @xy(Center,Center) UseHeader "Disk Space Error"
  165.     .LSorry, This Installation requires at least [TempDirSpaceRequired] bytes of Fixed Disk
  166.     .LSpace in order to successfully install!
  167.    EndDialog
  168.    SoLong
  169.  Else
  170.    [TempDirectory] := [TempDriveLetter]:\ALGUL02
  171.    CreateDirectoryIfNecessary [TempDirectory]
  172.    Delay 2000
  173.    ;;ClearScreen
  174.    ;;UpdateWindow
  175.  EndIf
  176.  
  177.   SetReplacementInquiry off
  178.   SetMouseCursor Wait
  179.  TextBox @xy(Center,Center)
  180.    Copying Installation Files ...
  181.  EndTextBox
  182.  ;; QueAllFiles to [WindowsSystemDirectory]
  183.   QueFileGroup 1 to [WindowsSystemDirectory]
  184.   GetQuedFiles Quietly
  185.  
  186.  
  187.   CopyFiles from [InstallationDirectory] to [WindowsSystemDirectory] Quietly
  188.      ALIDCI.DRV
  189.   EndCopyFiles
  190.  
  191.   SetMouseCursor Wait
  192.   QueFileGroup 2 to [TempDirectory] Quietly
  193.   GetQuedFiles Quietly
  194.   CopyFiles from [InstallationDirectory] to [TempDirectory] Quietly
  195.     VMASTER.EXE
  196.   EndCopyFiles
  197.   SetMouseCursor Wait
  198.   If FileExists [WindowsSystemDirectory]\OEM5.INF
  199.   SetMouseCursor Wait
  200.      DeleteFiles from [WindowsSystemDirectory] Quietly
  201.        OEM5.INF
  202.      EndDeleteFiles
  203.   EndIf
  204.   SetMouseCursor Wait
  205.   CopyFiles from [InstallationDirectory] to [WindowsSystemDirectory] Quietly
  206.     OEM2302.ALI
  207.   EndCopyFiles
  208.   If FileExists [WindowsSystemDirectory]\OEM2302.INF
  209.   SetMouseCursor Wait
  210.      DeleteFiles from [WindowsSystemDirectory] Quietly
  211.        OEM2302.INF
  212.      EndDeleteFiles
  213.      RenameFile [WindowsSystemDirectory]\OEM2302.ALI to OEM2302.INF
  214.   else
  215.   SetMouseCursor Wait
  216.      RenameFile [WindowsSystemDirectory]\OEM2302.ALI to OEM2302.INF
  217.   EndIf
  218.   ClearScreen
  219.   UpdateWindow
  220. EndProcedure
  221.  
  222. Do SetupInstalit
  223. ;;Do PrepareSystemReport
  224.      ;; FOR 1301 DCI DRIVERS INSTALLATION
  225. Dialog [YesOrNo1] @xy(Center,Center) WhiteOnBlack
  226.     Would you like to install VideoWizard drivers?
  227. EndDialog
  228. If [YesOrNo1] = Y
  229.   Do DCI
  230.   SoLong Quietly
  231. else
  232.   SoLong Quietly
  233. EndIf
  234.  
  235. Procedure DCI
  236. ;;*************ALG1301on************      
  237.  
  238.       If [String8] = [ALGRefRate]
  239.        else
  240.      ExamineTextFile [WindowsDirectory]\SYSTEM.INI
  241.      If [String8] Contains [ALGRefRate] 
  242.        [String8] := LineWith ([,[ALGRefRate],])
  243.        [Number7] := LineNumberWith ([,[ALGRefRate],])
  244.      else
  245. ModifyTextFile [WindowsDirectory]\SYSTEM.INI NoBackup
  246. ;; InSection [ALGRefRate]
  247.   AddOrChangeLineWith ([ALGRefRate],,) as "[ALGRefRate]" at End
  248. EndModifyTextFile     
  249.           Endif
  250.           Endif
  251.     
  252. ;;****************
  253.  
  254. If [String2] = ALIDCI
  255. else
  256.  If [String3] = iccvid.drv
  257.  else
  258.    If [String4] = indeov.drv 
  259.    else
  260.     If [String5] = IR32.DLL  
  261.      else
  262.       If [String6] = UDH.DLL  
  263.        else
  264.        If [String7] = on  
  265.         else
  266.      
  267.      
  268.      
  269.      ExamineTextFile [WindowsDirectory]\SYSTEM.INI
  270.      If [String2] Contains ALIDCI
  271.        [String2] := LineWith ([,ALIDCI,])
  272.        [Number1] := LineNumberWith ([,ALIDCI,])
  273.      else
  274.      If [String3] Contains iccvid.drv
  275.        [String3] := LineWith ([,iccvid.drv,])
  276.        [Number2] := LineNumberWith ([,iccvid.drv,])
  277.      else
  278.      If [String4] Contains indeov.drv
  279.        [String4] := LineWith ([,indeov.drv,])
  280.        [Number3] := LineNumberWith ([,indeov.drv,])
  281.      else
  282.      If [String5] Contains  IR32.DLL
  283.        [String5] := LineWith ([, IR32.DLL,])
  284.        [Number4] := LineNumberWith ([, IR32.DLL,])
  285.      else
  286.      If [String6] Contains  UDH.DLL
  287.        [String6] := LineWith ([,UDH.DLL,])
  288.        [Number5] := LineNumberWith ([,UDH.DLL,])
  289.      else
  290.      If [String7] Contains  on
  291.        [String7] := LineWith ([,on,])
  292.        [Number6] := LineNumberWith ([,on,])
  293.      else
  294.  
  295. ModifyTextFile [WindowsDirectory]\SYSTEM.INI NoBackup
  296.  InSection [drivers] 
  297.   AddOrChangeLineWith (DCI=,,) as "DCI=ALIDCI" at Beginning
  298.   AddOrChangeLineWith (DCIVIDC.CVID=,,) as "DCIVIDC.CVID=iccvid.drv" at Beginning
  299.   AddOrChangeLineWith (DCIVIDC.IV31=,,) as "DCIVIDC.IV31=indeov.drv" at Beginning
  300.   AddOrChangeLineWith (VIDC.IV32=,,) as "VIDC.IV32=IR32.DLL" at Beginning
  301.   AddOrChangeLineWith (VIDS.DRAW=,,) as "VIDS.DRAW=UDH.DLL" at Beginning
  302.  InSection [ALGRefRate] 
  303.   AddOrChangeLineWith (ALG1301DCI=,,) as "ALG1301DCI=off" at Beginning
  304.  
  305. EndModifyTextFile
  306.          Endif
  307.        EndIf
  308.        EndIf
  309.      EndIf
  310.          Endif
  311.        EndIf
  312.        EndIf
  313.      EndIf
  314.        EndIf
  315.      EndIf
  316.        EndIf
  317.      EndIf
  318. EndProcedure     
  319.  
  320.  
  321. If [CommandLine1] = -ReplaceFiles
  322.   SetReplacementInquiry Off
  323. EndIf
  324. If [CommandLine2] = -ReplaceFiles
  325.   SetReplacementInquiry Off
  326. EndIf
  327. If [CommandLine3] = -ReplaceFiles
  328.   SetReplacementInquiry Off
  329. EndIf
  330.  
  331. If [InquireAboutSystemFileLocation] = NoCharacter
  332.   If DriveIsPresent [BootDrive]  ;; if not, COMSPEC has been changed
  333.     NoSysFileConfirmation
  334.   EndIf
  335. EndIf
  336.  
  337. If [AskBeforeFileReplacement] = NoCharacter
  338.   SetReplacementInquiry Off
  339. EndIf
  340. SoLong
  341.  
  342. Procedure SetupInstalit
  343.   SetCoordinatesTo 80x25
  344.   If [UseShadows] = YesCharacter
  345.     SetShadows On
  346.   else
  347.     SetShadows Off
  348.   EndIf
  349.   If [InquireAboutSystemFileLocation] = NoCharacter
  350.     NoSysFileConfirmation
  351.   EndIf
  352.   [Black] := RGB(0,0,0)
  353.   [White] := RGB(255,255,255)
  354.   ;;SetMainBorderTo     [MainBorder]
  355.   SetPopupBorderTo    [PopupBorder]
  356.   SetModifyModeTo     [ModifyMode]
  357.   ;;SetShadowAttrTo     DarkGrayOnBlack
  358.   ;;SetScreenAttrTo [White]On[Black]
  359.   ;;SetPopupAttrTo      [PopupColors]
  360.   SetAttentionAttrTo  [AttentionColors]
  361.   ;;SetTopLineAttrTo WhiteOnBrown
  362.   SetTopLineTo        [TopLine]
  363.   ;;SetExitMessageTo "Installation complete!"
  364.   ;;SetAllowExit
  365. EndProcedure 
  366.